home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgs.dir / Internal_15_score--backar.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  630 b   |  33 lines
  1. property tix, tixV, zP, mmV, horseSprite, Counter
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   gmObject.backCounter = 0
  6.   Counter = 0
  7.   horseSprite = gmObject.horseSprites[6]
  8.   tixV = 4
  9.   tix = the ticks + tixV
  10.   sndObject.respondSnd(3, 2, 1, 1)
  11. end
  12.  
  13. on exitFrame me
  14.   Counter = Counter + 1
  15.   if Counter > 30 then
  16.     gmObject.stopped = 0
  17.     gmObject.changeHorse(1)
  18.     Counter = 0
  19.   end if
  20.   go(the frame)
  21. end
  22.  
  23. on idle
  24.   if the keyDownScript = EMPTY then
  25.     zP = horseSprite.locH
  26.     if the ticks > tix then
  27.       mmV = (the mouseH - zP) / 15
  28.       gmObject.mouseHX(mmV)
  29.       tix = the ticks + tixV
  30.     end if
  31.   end if
  32. end
  33.